home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #062 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #062 (1990-04)(Amiga User Group Deutschland e.V.).adf / Stick-Tester / Stick-Tester (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  2KB  |  75 lines
  1. REM   Joy-Tester V1.0
  2. REM written by S.Weber
  3. REM     in 1990
  4. REM
  5. CLS
  6. GOTO Beschr
  7. Pfeilo:         
  8. LOCATE 5,26:PRINT "O"
  9. IF x=4 THEN x=1
  10. LINE (200,20)-(180,40),x
  11. LINE (180,40)-(220,40),x
  12. LINE (220,40)-(200,20),x
  13. GOTO Joyabfrage
  14. Pfeill:
  15. LOCATE 7,22:PRINT "L"
  16. IF x=4 THEN x=1
  17. LINE (180,40)-(180,60),x
  18. LINE (180,40)-(140,50),x
  19. LINE (140,50)-(180,60),x
  20. GOTO Joyabfrage
  21. Pfeilu:
  22. LOCATE 9,26:PRINT "U"
  23. IF x=4 THEN x=1
  24. LINE (180,60)-(220,60),x
  25. LINE (180,60)-(200,80),x
  26. LINE (200,80)-(220,60),x
  27. GOTO Joyabfrage
  28. Pfeilr:
  29. LOCATE 7,29:PRINT "R"
  30. IF x=4 THEN x=1
  31. LINE (220,60)-(220,40),x
  32. LINE (220,60)-(260,50),x
  33. LINE (260,50)-(220,40),x
  34. GOTO Joyabfrage
  35. Joyabfrage:
  36. a=STICK(2)
  37. b=STICK(3)
  38. IF STRIG(3)=-1 THEN BEEP:GOTO Joyabfrage
  39. IF a=-1 THEN x=x+1: GOTO Pfeill
  40. IF a=1 THEN x=x+1: GOTO Pfeilr
  41. IF b=1 THEN x=x+1: GOTO Pfeilu
  42. IF b=-1 THEN x=x+1: GOTO Pfeilo
  43. GOTO Joyabfrage
  44. Beschr:
  45. CLS
  46. PRINT" Joystick-Tester V1.0"
  47. PRINT
  48. PRINT " written by S.Weber in 1990"
  49. PRINT 
  50. PRINT " Dieses Programm erlaubt es Ihnen Ihren Joystick in"
  51. PRINT " Port 2 auf seine Funktionstuechtigkeit zu testen."
  52. PRINT " Bei Druecken des Feuerknopfes ertoent der BEEP-Ton."
  53. PRINT
  54. PRINT " Ich wuensche Ihnen viel Spass !!"
  55. PRINT:PRINT
  56. PRINT "                                   S.Weber"
  57. WHILE INKEY$="": WEND
  58. CLS
  59. LINE (200,20)-(180,40)
  60. LINE (180,40)-(220,40)
  61. LINE (220,40)-(200,20)
  62. LINE (180,40)-(180,60)
  63. LINE (180,40)-(140,50)
  64. LINE (140,50)-(180,60)
  65. LINE (180,60)-(220,60)
  66. LINE (180,60)-(200,80)
  67. LINE (220,60)-(200,80)
  68. LINE (220,60)-(220,40)
  69. LINE (220,60)-(260,50)
  70. LINE (220,40)-(260,50)
  71. GOTO Joyabfrage
  72.  
  73.  
  74.  
  75.